Public Class xtf_ABMrecordatorio
    'Dim frm_listado As Form = Nothing
    'Dim ulg_row As DataRow
    'Dim obj_recordatorio As cls_recordatorio_ = Nothing

    'Public Sub New()
    '    InitializeComponent()
    '    AgregarValidaciones()
    'End Sub


    'Public Shadows Sub Nuevo(ByRef listado As Form)
    '    Try
    '        frm_listado = listado
    '        Me.Text = "recordatorios Asegurados - Nuevo"
    '        obj_recordatorio = New cls_recordatorio_
    '        btn_Registro.Enabled = False
    '        Me.Show()
    '    Catch ex As Exception
    '        'Dim frmError As New frm_ErrorManager(ex.Message)
    '    End Try
    'End Sub

    'Public Shadows Sub Modificar(ByRef recordatorio As cls_recordatorio_, ByRef listado As Form, ByRef row As DataRow)
    '    If IsNothing(obj_recordatorio) Then
    '        obj_recordatorio = New cls_recordatorio_
    '    End If
    '    obj_recordatorio = recordatorio
    '    frm_listado = listado
    '    ulg_row = row

    '    Me.Text = "recordatorios Asegurados - " & obj_recordatorio.ToString
    '    txt_idrecordatorio.Text = obj_recordatorio.idrecordatorio
    '    txt_tipo.Text = obj_recordatorio.tipo
    '    dtp_fecha.Text = obj_recordatorio.fecha
    '    dtp_hora.Text = obj_recordatorio.hora
    '    txt_periodicidad.Text = obj_recordatorio.periodicidad
    '    txt_tipoperiodicidad.Text = obj_recordatorio.tipoperiodicidad

    '    btn_Registro.Enabled = True

    '    Me.Show()

    'End Sub

    'Public Overrides Function ComprobarDatos() As Boolean
    '    If Not ControlarValidaciones() Then
    '        ErrManagerShow("000004", Me)
    '        Return False
    '    End If
    '    Return True
    'End Function

    'Public Shadows Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
    '    If ComprobarDatos() Then
    '        obj_recordatorio.tipo = txt_tipo.Text
    '        obj_recordatorio.fecha = dtp_fecha.Text
    '        obj_recordatorio.hora = dtp_hora.Text
    '        obj_recordatorio.periodicidad = txt_periodicidad.Text
    '        obj_recordatorio.tipoperiodicidad = txt_tipoperiodicidad.Text
    '        If txt_idrecordatorio.Text = "" Then
    '            obj_recordatorio.Nuevo(True)
    '            If frm_listado.Visible Then
    '                ulg_row = CType(frm_listado, xtf_LISTADOrecordatorio_).AgregarItem(obj_recordatorio)
    '            End If
    '            Modificar(obj_recordatorio, frm_listado, ulg_row)
    '        Else
    '            obj_recordatorio.Modificar()
    '            If frm_listado.Visible Then
    '                CType(frm_listado, xtf_LISTADOrecordatorio_).ModificarItem(obj_recordatorio, ulg_row)
    '            End If
    '            Modificar(obj_recordatorio, frm_listado, ulg_row)
    '        End If
    '        flg_Modificado = False : btn_Guardar.Enabled = False : bbi_guardar.Enabled = False

    '    End If
    'End Sub

    'Private Sub btn_Registro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Registro.Click
    '    If Not IsNothing(obj_recordatorio.registro) Then
    '        Dim ABMRegistro As New xtf_ABMRegistro(obj_recordatorio.registro)
    '        If ABMRegistro.ShowDialog() = Windows.Forms.DialogResult.OK Then
    '            flg_Modificado = True
    '        End If
    '    End If
    'End Sub

    'Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
    '    If flg_Modificado Then
    '        Select Case ErrManagerShow("000001", Me)
    '            Case Windows.Forms.DialogResult.Yes
    '                If ComprobarDatos() Then
    '                    btn_Guardar_Click(Nothing, Nothing)
    '                Else
    '                    Exit Sub
    '                End If
    '            Case Windows.Forms.DialogResult.Cancel
    '                Exit Sub
    '        End Select
    '    End If
    '    Me.Dispose()
    'End Sub



End Class

